﻿Imports System.Data
Imports System.Data.SqlClient
Public Class TKTheoDiaChi

    Private Sub TKTheoDiaChi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
    End Sub

    Private Sub BtnTim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTim.Click
        Dim a As String
        a = TxtTKDiaChi.Text
        If a = "" Then
            MessageBox.Show("bạn chưa nhập dữ liệu")
        Else
            Dim bang As DataTable = NhaChoThue_BUS.LayThongTinTimKiemDiaChi(a)
            DataGridView1_TKTheoDiaChi.DataSource = bang
        End If
    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub
End Class